(DEFUN C:REFRESHFILES ()
  (SETQ project_file_dir (dos_getdir "Select Project Deliverable File Folder" "L:\\Util\\"))
  (SETQ project_build_dir (dos_getdir "Select Project Build File Folder" "L:\\Util\\Lsp\\"))
  (SETQ project_file_list (dos_dir (STRCAT project_file_dir "*.*")))
  (FOREACH n project_file_list
    (IF (AND
          (SETQ this_project_file (DOS_FILE (SETQ this_project_file_spec (STRCAT project_file_dir n))))
          (OR
            (SETQ this_source_file (DOS_FILE (STRCAT "L:\\Util\\Lsp\\" n)))
            (SETQ this_source_file (DOS_FILE (STRCAT "L:\\Util\\Para\\Source\\" n)))
            (SETQ this_source_file (DOS_FILE (STRCAT project_build_dir n)))
          )
          (> (NTH 2 this_source_file)(NTH 2 this_project_file))
        )
      (PROGN
        (DOS_RENAME this_project_file_spec (STRCAT this_project_file_spec "xxx"))
        (IF (SETQ this_source_n (FINDFILE (CAR this_source_file)))
          NIL
          (SETQ this_source_n (FINDFILE (STRCAT project_build_dir n)))
        )
        (IF (DOS_COPY this_source_n (STRCAT project_file_dir n))
          (PROGN
            (DOS_DELETE (STRCAT this_project_file_spec "xxx"))
            (PRINC (STRCAT "\n" this_project_file_spec " has been updated! "))
          )
          (PROGN
            (ALERT (STRCAT "Failed to copy\n"
                           this_source_n
                           "\nTo\n"
                           this_project_file_spec
                   )
            )
            (DOS_RENAME (STRCAT this_project_file_spec "xxx") this_project_file_spec)
          )
        )
      )
      (IF (AND
            this_source_file
            this_project_file
            (<= (NTH 2 this_source_file)(NTH 2 this_project_file))
          )
        (PRINC (STRCAT "\n" this_project_file_spec " is up to date."))
        (PRINC (STRCAT "\nCould not find the source file for\n"
                       (STRCAT project_file_dir n)
               )
        )
      )
    )
  )
  (PRINC)
)